home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / begincpp.zip / #2.C < prev    next >
Text File  |  1990-07-31  |  3KB  |  106 lines
  1. #line 1 "#2.cxx"
  2. void *_new(long);
  3. void _delete(void*);
  4. void *_vec_new(void*,int,int,void*(*)(void*));
  5. void _vec_delete(void*,int,int,void(*)(void*,int),...);
  6. void exit(int);
  7. static void cdecl _STI();
  8. static void cdecl _STD();
  9.  
  10.  
  11.  
  12. struct boolean { 
  13.      int *_boolean_var ;
  14. } ;
  15.  
  16. struct no_constructor { 
  17.      int _no_constructor_none ;
  18. } ;
  19.  
  20. struct no_destructor { 
  21.      int _no_destructor_none ;
  22. } ;
  23.  
  24. struct nothing { char _dummy; } ;
  25.  
  26. void proc1 (void );
  27. void proc2 (void );
  28.  
  29. int main ()
  30. { 
  31.      { 
  32.           int _au1_yes ;
  33.           struct boolean _au1_test ;
  34.           struct no_constructor _au1_x1 ;
  35.           struct no_destructor _au1_x2 ;
  36.           struct nothing _au1_x3 ;
  37.           
  38.           _au1_yes = 1;
  39.  
  40.         //will analyze the following 4 lines:
  41.           ( ( ((& _au1_test )-> _boolean_var 
  42.                     = (((int *)_new ( (long )(sizeof (int ))) ))), 
  43.                          ( ((*(& _au1_test )-> _boolean_var )= _au1_yes ), 
  44.                          (((& _au1_test )))) ) ) ;
  45.  
  46.           /* rearrange the above code into:
  47.           ( ( 
  48.                  (
  49.                       (& _au1_test )-> _boolean_var 
  50.                       = ((
  51.                                 (int *)_new ( (long )(sizeof (int )) ) 
  52.                         ))
  53.                  ),
  54.  
  55.                  (    
  56.                       ((*(& _au1_test )-> _boolean_var )= _au1_yes ), 
  57.                        (((& _au1_test )))
  58.                  ) 
  59.           ) ) ;
  60.           */
  61.  
  62.           ( (((& _au1_x2 )))) ;         //constructor called for x2
  63.  
  64.           proc1 ( ) ;
  65.           proc2 ( ) ;
  66.  
  67.           exit ( (int )0 ) ;
  68.           
  69.           ( (( (( (0 ), 0 ) ), 0 ) ), 0 ) ;    
  70.           
  71.           ( (( ( ( _delete ( (void *)(& _au1_test )-> _boolean_var ) , 0 ) , 
  72.                               (( (0 ), 0 ) )) , 0 ) ), 0 ) ;
  73.      }  
  74.      exit ( 0 ); 
  75. }
  76.  
  77. extern void proc1 ()
  78. { 
  79.      struct boolean _au1_y ;
  80.      
  81.      ( ( ((& _au1_y )-> _boolean_var = 
  82.                (((int *)_new ( (long )(sizeof (int ))) ))), 
  83.                ( ((*(& _au1_y )-> _boolean_var )= 0), (((& _au1_y )))) ) ) ;
  84.  
  85.      { 
  86.           ( (( ( ( _delete ( (void *)(& _au1_y )-> _boolean_var ) , 0 ) , 
  87.                               (( (0 ), 0 ) )) , 0 ) ), 0 ) ;
  88.  
  89.           return ;
  90.      } 
  91. } 
  92.  
  93. extern void proc2 ()
  94. { 
  95.      extern struct boolean z (void );
  96.  
  97.      return ;
  98. } 
  99.  
  100. /* Ignore the warning messages from the translator, 
  101. "#2.cxx", line 15: warning: no_constructor  has destructor but no constructor
  102. "#2.cxx", line 33: warning:  near cdecl x1 not used
  103. "#2.cxx", line 35: warning:  near cdecl x3 not used
  104.  */
  105.  
  106.